/*
 * Peralta Santa Anna Victor Miguel
 * Diciembre 2011
 * Stored Procedure:
 *
 * Añadimos un nuevo usuario
 */

CREATE OR REPLACE FUNCTION addContraseniaSistema
	( 
		scontrasena VARCHAR
		
	) RETURNS INTEGER AS $$
	
	DECLARE llave INTEGER;
	
	BEGIN
	
		INSERT INTO ADMINISTRADOR (sContrasenaSistema) 
		
		VALUES ( md5(scontrasena) );
		
		RETURN 1;
		
		COMMIT;
		
	END;
	
$$ LANGUAGE plpgsql;

select addContraseniaSistema('P4$$w0rd');

